Resource Library: Multimedia/Resource Library: Multimedia.iso/hypercrd/xcmds/dvlprstc.hqx/Developer Stack 1.3r/background_2612.txt

Text File | 1991-04-30 | 10.7 KB | 513 lines

-- background: 2612 from stack: in.3r
-- bmap block id: 2821
-- flags: 4000
-- background id: 0
-- name: XCMDs
----- HyperTalk script -----
on opencard
  put (the number of this card - the number of first card of this background+1) into field "PageNumber"
  set scroll of field description to 0
  set scroll of field syntax to 0
  put "XCMD" into field "type"
end opencard



-- part 2 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=3 top=3 right=37 bottom=286
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Name


-- part 3 (field)
-- low flags: 00
-- high flags: 4007
-- rect: left=58 top=47 right=230 bottom=274
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: description
----- HyperTalk script -----
on mousewithin
  --This uses the ART hypertext method to link to another card.
  --It calls the HyperText function in the stack script
  if selection is not empty then put HyperText(selection) into it
end mousewithin



-- part 6 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=437 top=11 right=33 bottom=459
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mousestilldown
  global scrolling
  put true into scrolling
  goPrev
end mousestilldown

on mouseup
  global scrolling
  if not scrolling then goPrev
  put false into scrolling
end mouseup



-- part 7 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=488 top=11 right=33 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mousestilldown
  global scrolling
  put true into scrolling
  goNext
end mousestilldown

on mouseup
  global scrolling
  if not scrolling then goNext
  put false into scrolling
end mouseup



-- part 9 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=47 right=90 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual effect iris close
  go first card
end mouseUp



-- part 10 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=284 top=46 right=278 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Syntax
----- HyperTalk script -----
on mousewithin
  --This uses the ART hypertext method to link to another card.
  --It calls the HyperText function in the stack script
  if selection is not empty then put HyperText(selection) into it
end mousewithin



-- part 12 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=60 top=259 right=281 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Resource Mover
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  ResCopy
end mouseUp



-- part 13 (field)
-- low flags: 01
-- high flags: 0002
-- rect: left=461 top=15 right=32 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: PageNumber


-- part 22 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=88 right=131 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 14767 / 14767
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: About...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  visual iris open to gray
  visual iris close to black
  visual iris open to gray
  visual iris close
  go background information
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=129 right=172 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 29114 / 29114
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Back
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  visual barn door close to black
  visual barn door open
  pop card
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=170 right=213 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 1011 / 1011
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual dissolve to black
  visual dissolve
  go first card of home
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=211 right=254 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Open Stack
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put "Please select a stack to open..."
  domenu "open stack..."
  hide message
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=252 right=295 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 17343 / 17343
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Launch Application
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  visual venetian blinds to gray
  visual venetian blinds to black
  visual venetian blinds to gray
  visual venetian blinds
  go to background "Mini Hyperstation"
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 2004
-- rect: left=3 top=293 right=336 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 21786 / 21786
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Menus Off
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  if menubar("©1988SDrazga") then hide menubar else show menubar
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=60 top=234 right=256 bottom=179
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XCMD,field "name") into it
end mouseUp



-- part 30 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=283 top=3 right=37 bottom=436
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: type


-- part 38 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=61 top=292 right=341 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XFCNs...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "XFCNs"

end mouseUp



-- part 39 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=124 top=292 right=341 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 2 / 2
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XCMDS...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "XCMDs"

end mouseUp



-- part 40 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=188 top=292 right=341 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 29007 / 29007
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functions...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "Functions"

end mouseUp



-- part 41 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=252 top=292 right=341 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 1060 / 1060
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scripts...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup

  controlButton "Scripts"

end mouseUp



-- part 42 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=317 top=292 right=341 bottom=375
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Buttons...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  controlButton "Buttons"
end mouseUp



-- part 43 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=381 top=292 right=341 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 22999 / 22999
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quick Ref...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  controlButton "Quick Ref"
end mouseUp



-- part 44 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=446 top=292 right=341 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 11645 / 11645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Full Index...
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  controlbutton index
end mouseUp




-- part 45 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=0 top=0 right=-20 bottom=-20
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ü÷ü±τµ⌠